home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / COLLISION DEMO 1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  616b  |  21 lines
  1. 10  POKE 768,1: POKE 769,0: POKE 770,4
  2. 20  POKE 771,0: POKE 772,4: POKE 773,0
  3. 30  POKE 232,0: POKE 233,3: REM  $E8,E9=$300
  4. 40  HGR : HCOLOR= 3
  5. 50  HOME 
  6. 60  GOSUB 190
  7. 70  REM  'DRAW' SCANNER
  8. 80  SCALE= 80
  9. 90  FOR R = 0 TO 63
  10. 100  ROT= R
  11. 110  HCOLOR= 3: DRAW 1 AT 140,80: REM  DRAW LINE
  12. 120  VTAB 22: PRINT  PEEK(234);"  "
  13. 130  IF  PEEK(234) >0  THEN  GET A$: IF A$ = "X"  THEN 
  14. 140  FOR I = 1 TO 25: NEXT I: REM  DELAY LOOP
  15. 150  HCOLOR= 0: DRAW 1 AT 140,80: REM  ERASE LINE
  16. 160  NEXT R
  17. 170  HCOLOR= 3: GOSUB 190: REM  RE-CREATE FIELD
  18. 180  GOTO 90
  19. 190  REM  CREATE FIELD
  20. 200  HPLOT 140,100: HPLOT 140,101
  21. 210  RETURN